home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / modem / rzsz2.arc / RBSB.C < prev    next >
C/C++ Source or Header  |  1987-12-08  |  14KB  |  387 lines
  1. /*
  2.  *
  3.  * -rev 04-16-87
  4.  *  This file contains Unix specific code for setting terminal modes,
  5.  *  very little is specific to ZMODEM or YMODEM per se (that code is in
  6.  *  sz.c and rz.c).  The CRC-16 routines used by XMODEM, YMODEM, and ZMODEM
  7.  *  are also in this file, a fast table driven macro version
  8.  *
  9.  *   This file is #included so the main file can set parameters such as HOWMANY.
  10.  *   See the main files (rz.c/sz.c) for compile instructions.
  11.  */
  12.  
  13. #ifdef V7
  14. #include <sys/types.h>
  15. #include <sys/stat.h>
  16. #include <sgtty.h>
  17. #define OS "V7/BSD"
  18. #endif
  19.  
  20. #ifndef OS
  21. #ifndef USG
  22. #define USG
  23. #endif
  24. #endif
  25.  
  26. #ifdef USG
  27. #include <sys/types.h>
  28. #include <sys/stat.h>
  29. #include <termio.h>
  30. #include <sys/ioctl.h>
  31. #define OS "SYS III/V"
  32. #endif
  33.  
  34. #if HOWMANY  > 255
  35. Howmany must be 255 or less
  36. #endif
  37.  
  38. struct {
  39.     unsigned baudr;
  40.     int speedcode;
  41. } speeds[] = {
  42.     110,    B110,
  43.     300,    B300,
  44.     600,    B600,
  45.     1200,    B1200,
  46.     2400,    B2400,
  47.     4800,    B4800,
  48.     9600,    B9600,
  49.     19200,    EXTA,
  50.     9600,    EXTB,
  51.     0,
  52. };
  53.  
  54. int Twostop;        /* Use two stop bits */
  55.  
  56. static unsigned
  57. getspeed(code)
  58. {
  59.     register n;
  60.  
  61.     for (n=0; speeds[n].baudr; ++n)
  62.         if (speeds[n].speedcode == code)
  63.             return speeds[n].baudr;
  64.     return 0;
  65. }
  66.  
  67.  
  68.  
  69. #ifdef ICANON
  70. struct termio oldtty, tty;
  71. #else
  72. struct sgttyb oldtty, tty;
  73. struct tchars oldtch, tch;
  74. #endif
  75.  
  76. int iofd = 0;        /* File descriptor for ioctls & reads */
  77.  
  78. /*
  79.  * mode(n)
  80.  *  3: save old tty stat, set raw mode with flow control
  81.  *  2: set a cbreak, XON/XOFF control mode if using Pro-YAM's -g option
  82.  *  1: save old tty stat, set raw mode 
  83.  *  0: restore original tty mode
  84.  */
  85. mode(n)
  86. {
  87.     static did0 = FALSE;
  88.  
  89.     vfile("mode:%d", n);
  90.     switch(n) {
  91. #ifdef USG
  92.     case 2:    /* Cbreak mode used by sb when -g detected */
  93.         if(!did0)
  94.             (void) ioctl(iofd, TCGETA, &oldtty);
  95.         tty = oldtty;
  96.  
  97.         tty.c_iflag = BRKINT|IXON;
  98.  
  99.         tty.c_oflag = 0;    /* Transparent output */
  100.  
  101.         tty.c_cflag &= ~PARENB;    /* Disable parity */
  102.         tty.c_cflag |= CS8;    /* Set character size = 8 */
  103.         if (Twostop)
  104.             tty.c_cflag |= CSTOPB;    /* Set two stop bits */
  105.  
  106.         tty.c_lflag = 
  107. #ifdef XCLUDE
  108.           XCLUDE |
  109. #endif
  110.           Zmodem ? 0 : ISIG;
  111.  
  112.         tty.c_cc[VINTR] = 030;        /* Interrupt char */
  113.         tty.c_cc[VMIN] = 1;
  114.  
  115.         (void) ioctl(iofd, TCSETAW, &tty);
  116.         did0 = TRUE;
  117.         return OK;
  118.     case 1:
  119.     case 3:
  120.         if(!did0)
  121.             (void) ioctl(iofd, TCGETA, &oldtty);
  122.         tty = oldtty;
  123.  
  124.         tty.c_iflag = n==3 ? (IGNBRK|IXOFF) : IGNBRK;
  125.  
  126.          /* No echo, crlf mapping, INTR, QUIT, delays, no erase/kill */
  127.         tty.c_lflag &= ~(ECHO | ICANON | ISIG);
  128. #ifdef XCLUDE
  129.         tty.c_lflag |= XCLUDE;
  130. #endif
  131.  
  132.         tty.c_oflag = 0;    /* Transparent output */
  133.  
  134.         tty.c_cflag &= ~PARENB;    /* Same baud rate, disable parity */
  135.         tty.c_cflag |= CS8;    /* Set character size = 8 */
  136.         if (Twostop)
  137.             tty.c_cflag |= CSTOPB;    /* Set two stop bits */
  138. #ifdef NFGVMIN
  139.         tty.c_cc[VMIN] = 1; /* This many chars satisfies reads */
  140. #else
  141.         tty.c_cc[VMIN] = HOWMANY; /* This many chars satisfies reads */
  142. #endif
  143.         tty.c_cc[VTIME] = 1;    /* or in this many tenths of seconds */
  144.         (void) ioctl(iofd, TCSETAW, &tty);
  145.         did0 = TRUE;
  146.         Baudrate = getspeed(tty.c_cflag & CBAUD);
  147.         return OK;
  148. #endif
  149. #ifdef V7
  150.     case 2:    /*  This doesn't work ... */
  151.         printf("No mode(2) in V7/BSD!"); bibi(99);
  152.         if(!did0) {
  153.             ioctl(iofd, TIOCEXCL, 0);
  154.             ioctl(iofd, TIOCGETP, &oldtty);
  155.             ioctl(iofd, TIOCGETC, &oldtch);
  156.         }
  157.         tty = oldtty;
  158.         tch = oldtch;
  159.         tch.t_intrc = Zmodem ? 03:030;    /* Interrupt char */
  160.         tty.sg_flags |= (ODDP|EVENP|CBREAK);
  161.         tty.sg_flags &= ~(ALLDELAY|CRMOD|ECHO|LCASE);
  162.         ioctl(iofd, TIOCSETP, &tty);
  163.         ioctl(iofd, TIOCSETC, &tch);
  164.         did0 = TRUE;
  165.         return OK;
  166.     case 1:
  167.     case 3:
  168.         if(!did0) {
  169.             ioctl(iofd, TIOCEXCL, 0);
  170.             ioctl(iofd, TIOCGETP, &oldtty);
  171.             ioctl(iofd, TIOCGETC, &oldtch);
  172.         }
  173.         tty = oldtty;
  174.         tty.sg_flags |= RAW;
  175.         tty.sg_flags &= ~ECHO;
  176.         ioctl(iofd, TIOCSETP, &tty);
  177.         did0 = TRUE;
  178.         Baudrate = getspeed(tty.sg_ospeed);
  179.         return OK;
  180. #endif
  181.     case 0:
  182.         if(!did0)
  183.             return ERROR;
  184. #ifdef USG
  185.         (void) ioctl(iofd, TCSBRK, 1);    /* Wait for output to drain */
  186.         (void) ioctl(iofd, TCFLSH, 1);    /* Flush input queue */
  187.         (void) ioctl(iofd, TCSETAW, &oldtty);    /* Restore original modes */
  188.         (void) ioctl(iofd, TCXONC,1);    /* Restart output */
  189. #endif
  190. #ifdef V7
  191.         ioctl(iofd, TIOCSETP, &oldtty);
  192.         ioctl(iofd, TIOCSETC, &oldtch);
  193.         ioctl(iofd, TIOCNXCL, 0);
  194. #endif
  195.         return OK;
  196.     default:
  197.         return ERROR;
  198.     }
  199. }
  200.  
  201. sendbrk()
  202. {
  203. #ifdef V7
  204. #ifdef TIOCSBRK
  205. #define CANBREAK
  206.     sleep(1);
  207.     ioctl(iofd, TIOCSBRK, 0);
  208.     sleep(1);
  209.     ioctl(iofd, TIOCCBRK, 0);
  210. #endif
  211. #endif
  212. #ifdef USG
  213. #define CANBREAK
  214.     ioctl(iofd, TCSBRK, 0);
  215. #endif
  216. }
  217.  
  218. #ifdef FIONREAD
  219. #define READCHECK
  220. /*
  221.  *  Return non 0 iff something to read from io descriptor f
  222.  */
  223. rdchk(f)
  224. {
  225.     static long lf;
  226.  
  227.     ioctl(f, FIONREAD, &lf);
  228.     return ((int) lf);
  229. }
  230. #endif
  231. #ifdef SVR2
  232. #define READCHECK
  233. #include <fcntl.h>
  234.  
  235. char checked = '\0' ;
  236. /*
  237.  * Nonblocking I/O is a bit different in System V, Release 2
  238.  */
  239. rdchk(f)
  240. {
  241.     int lf, savestat = fcntl(f, F_GETFL) ;
  242.  
  243.     fcntl(f, F_SETFL, savestat | O_NDELAY) ;
  244.     lf = read(f, &checked, 1) ;
  245.     fcntl(f, F_SETFL, savestat) ;
  246.     return(lf) ;
  247. }
  248. #endif
  249.  
  250.  
  251. /* crctab calculated by Mark G. Mendel, Network Systems Corporation */
  252. static unsigned short crctab[256] = {
  253.     0x0000,  0x1021,  0x2042,  0x3063,  0x4084,  0x50a5,  0x60c6,  0x70e7,
  254.     0x8108,  0x9129,  0xa14a,  0xb16b,  0xc18c,  0xd1ad,  0xe1ce,  0xf1ef,
  255.     0x1231,  0x0210,  0x3273,  0x2252,  0x52b5,  0x4294,  0x72f7,  0x62d6,
  256.     0x9339,  0x8318,  0xb37b,  0xa35a,  0xd3bd,  0xc39c,  0xf3ff,  0xe3de,
  257.     0x2462,  0x3443,  0x0420,  0x1401,  0x64e6,  0x74c7,  0x44a4,  0x5485,
  258.     0xa56a,  0xb54b,  0x8528,  0x9509,  0xe5ee,  0xf5cf,  0xc5ac,  0xd58d,
  259.     0x3653,  0x2672,  0x1611,  0x0630,  0x76d7,  0x66f6,  0x5695,  0x46b4,
  260.     0xb75b,  0xa77a,  0x9719,  0x8738,  0xf7df,  0xe7fe,  0xd79d,  0xc7bc,
  261.     0x48c4,  0x58e5,  0x6886,  0x78a7,  0x0840,  0x1861,  0x2802,  0x3823,
  262.     0xc9cc,  0xd9ed,  0xe98e,  0xf9af,  0x8948,  0x9969,  0xa90a,  0xb92b,
  263.     0x5af5,  0x4ad4,  0x7ab7,  0x6a96,  0x1a71,  0x0a50,  0x3a33,  0x2a12,
  264.     0xdbfd,  0xcbdc,  0xfbbf,  0xeb9e,  0x9b79,  0x8b58,  0xbb3b,  0xab1a,
  265.     0x6ca6,  0x7c87,  0x4ce4,  0x5cc5,  0x2c22,  0x3c03,  0x0c60,  0x1c41,
  266.     0xedae,  0xfd8f,  0xcdec,  0xddcd,  0xad2a,  0xbd0b,  0x8d68,  0x9d49,
  267.     0x7e97,  0x6eb6,  0x5ed5,  0x4ef4,  0x3e13,  0x2e32,  0x1e51,  0x0e70,
  268.     0xff9f,  0xefbe,  0xdfdd,  0xcffc,  0xbf1b,  0xaf3a,  0x9f59,  0x8f78,
  269.     0x9188,  0x81a9,  0xb1ca,  0xa1eb,  0xd10c,  0xc12d,  0xf14e,  0xe16f,
  270.     0x1080,  0x00a1,  0x30c2,  0x20e3,  0x5004,  0x4025,  0x7046,  0x6067,
  271.     0x83b9,  0x9398,  0xa3fb,  0xb3da,  0xc33d,  0xd31c,  0xe37f,  0xf35e,
  272.     0x02b1,  0x1290,  0x22f3,  0x32d2,  0x4235,  0x5214,  0x6277,  0x7256,
  273.     0xb5ea,  0xa5cb,  0x95a8,  0x8589,  0xf56e,  0xe54f,  0xd52c,  0xc50d,
  274.     0x34e2,  0x24c3,  0x14a0,  0x0481,  0x7466,  0x6447,  0x5424,  0x4405,
  275.     0xa7db,  0xb7fa,  0x8799,  0x97b8,  0xe75f,  0xf77e,  0xc71d,  0xd73c,
  276.     0x26d3,  0x36f2,  0x0691,  0x16b0,  0x6657,  0x7676,  0x4615,  0x5634,
  277.     0xd94c,  0xc96d,  0xf90e,  0xe92f,  0x99c8,  0x89e9,  0xb98a,  0xa9ab,
  278.     0x5844,  0x4865,  0x7806,  0x6827,  0x18c0,  0x08e1,  0x3882,  0x28a3,
  279.     0xcb7d,  0xdb5c,  0xeb3f,  0xfb1e,  0x8bf9,  0x9bd8,  0xabbb,  0xbb9a,
  280.     0x4a75,  0x5a54,  0x6a37,  0x7a16,  0x0af1,  0x1ad0,  0x2ab3,  0x3a92,
  281.     0xfd2e,  0xed0f,  0xdd6c,  0xcd4d,  0xbdaa,  0xad8b,  0x9de8,  0x8dc9,
  282.     0x7c26,  0x6c07,  0x5c64,  0x4c45,  0x3ca2,  0x2c83,  0x1ce0,  0x0cc1,
  283.     0xef1f,  0xff3e,  0xcf5d,  0xdf7c,  0xaf9b,  0xbfba,  0x8fd9,  0x9ff8,
  284.     0x6e17,  0x7e36,  0x4e55,  0x5e74,  0x2e93,  0x3eb2,  0x0ed1,  0x1ef0
  285. };
  286.  
  287. /*
  288.  * updcrc macro derived from article Copyright (C) 1986 Stephen Satchell. 
  289.  *  NOTE: First srgument must be in range 0 to 255.
  290.  *        Second argument is referenced twice.
  291.  * 
  292.  * Programmers may incorporate any or all code into their programs, 
  293.  * giving proper credit within the source. Publication of the 
  294.  * source routines is permitted so long as proper credit is given 
  295.  * to Stephen Satchell, Satchell Evaluations and Chuck Forsberg, 
  296.  * Omen Technology.
  297.  */
  298.  
  299. #define updcrc(cp, crc) ( crctab[((crc >> 8) & 255)] ^ (crc << 8) ^ cp)
  300.  
  301. /*
  302.  * Copyright (C) 1986 Gary S. Brown.  You may use this program, or
  303.  * code or tables extracted from it, as desired without restriction.
  304.  */
  305.  
  306. /* First, the polynomial itself and its table of feedback terms.  The  */
  307. /* polynomial is                                                       */
  308. /* X^32+X^26+X^23+X^22+X^16+X^12+X^11+X^10+X^8+X^7+X^5+X^4+X^2+X^1+X^0 */
  309. /* Note that we take it "backwards" and put the highest-order term in  */
  310. /* the lowest-order bit.  The X^32 term is "implied"; the LSB is the   */
  311. /* X^31 term, etc.  The X^0 term (usually shown as "+1") results in    */
  312. /* the MSB being 1.                                                    */
  313.  
  314. /* Note that the usual hardware shift register implementation, which   */
  315. /* is what we're using (we're merely optimizing it by doing eight-bit  */
  316. /* chunks at a time) shifts bits into the lowest-order term.  In our   */
  317. /* implementation, that means shifting towards the right.  Why do we   */
  318. /* do it this way?  Because the calculated CRC must be transmitted in  */
  319. /* order from highest-order term to lowest-order term.  UARTs transmit */
  320. /* characters in order from LSB to MSB.  By storing the CRC this way,  */
  321. /* we hand it to the UART in the order low-byte to high-byte; the UART */
  322. /* sends each low-bit to hight-bit; and the result is transmission bit */
  323. /* by bit from highest- to lowest-order term without requiring any bit */
  324. /* shuffling on our part.  Reception works similarly.                  */
  325.  
  326. /* The feedback terms table consists of 256, 32-bit entries.  Notes:   */
  327. /*                                                                     */
  328. /*     The table can be generated at runtime if desired; code to do so */
  329. /*     is shown later.  It might not be obvious, but the feedback      */
  330. /*     terms simply represent the results of eight shift/xor opera-    */
  331. /*     tions for all combinations of data and CRC register values.     */
  332. /*                                                                     */
  333. /*     The values must be right-shifted by eight bits by the "updcrc"  */
  334. /*     logic; the shift must be unsigned (bring in zeroes).  On some   */
  335. /*     hardware you could probably optimize the shift in assembler by  */
  336. /*     using byte-swap instructions.                                   */
  337.  
  338. static long cr3tab[] = { /* CRC polynomial 0xedb88320 */
  339. 0x00000000, 0x77073096, 0xee0e612c, 0x990951ba, 0x076dc419, 0x706af48f, 0xe963a535, 0x9e6495a3,
  340. 0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988, 0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91,
  341. 0x1db71064, 0x6ab020f2, 0xf3b97148, 0x84be41de, 0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
  342. 0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec, 0x14015c4f, 0x63066cd9, 0xfa0f3d63, 0x8d080df5,
  343. 0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172, 0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b,
  344. 0x35b5a8fa, 0x42b2986c, 0xdbbbc9d6, 0xacbcf940, 0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
  345. 0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116, 0x21b4f4b5, 0x56b3c423, 0xcfba9599, 0xb8bda50f,
  346. 0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924, 0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d,
  347. 0x76dc4190, 0x01db7106, 0x98d220bc, 0xefd5102a, 0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
  348. 0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818, 0x7f6a0dbb, 0x086d3d2d, 0x91646c97, 0xe6635c01,
  349. 0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e, 0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457,
  350. 0x65b0d9c6, 0x12b7e950, 0x8bbeb8ea, 0xfcb9887c, 0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
  351. 0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2, 0x4adfa541, 0x3dd895d7, 0xa4d1c46d, 0xd3d6f4fb,
  352. 0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0, 0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9,
  353. 0x5005713c, 0x270241aa, 0xbe0b1010, 0xc90c2086, 0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
  354. 0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4, 0x59b33d17, 0x2eb40d81, 0xb7bd5c3b, 0xc0ba6cad,
  355. 0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a, 0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683,
  356. 0xe3630b12, 0x94643b84, 0x0d6d6a3e, 0x7a6a5aa8, 0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
  357. 0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe, 0xf762575d, 0x806567cb, 0x196c3671, 0x6e6b06e7,
  358. 0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc, 0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5,
  359. 0xd6d6a3e8, 0xa1d1937e, 0x38d8c2c4, 0x4fdff252, 0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
  360. 0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60, 0xdf60efc3, 0xa867df55, 0x316e8eef, 0x4669be79,
  361. 0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236, 0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f,
  362. 0xc5ba3bbe, 0xb2bd0b28, 0x2bb45a92, 0x5cb36a04, 0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
  363. 0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a, 0x9c0906a9, 0xeb0e363f, 0x72076785, 0x05005713,
  364. 0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38, 0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21,
  365. 0x86d3d2d4, 0xf1d4e242, 0x68ddb3f8, 0x1fda836e, 0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
  366. 0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c, 0x8f659eff, 0xf862ae69, 0x616bffd3, 0x166ccf45,
  367. 0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2, 0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db,
  368. 0xaed16a4a, 0xd9d65adc, 0x40df0b66, 0x37d83bf0, 0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
  369. 0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6, 0xbad03605, 0xcdd70693, 0x54de5729, 0x23d967bf,
  370. 0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94, 0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
  371. };
  372.  
  373. #ifdef NFGM
  374. long
  375. UPDC32(b, c)
  376. long c;
  377. {
  378.     return (cr3tab[((int)c ^ b) & 0xff] ^ ((c >> 8) & 0x00FFFFFF));
  379. }
  380.  
  381. #else
  382.  
  383. #define UPDC32(b, c) (cr3tab[((int)c ^ b) & 0xff] ^ ((c >> 8) & 0x00FFFFFF))
  384. #endif
  385.  
  386. /* End of rbsb.c */
  387.